home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh16a.d64
/
twm-listing 10
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
663b
|
28 lines
10 REM HELP-DEMO
20 :
30 SYS32168
35 POKE 650,128 :REM ALLE TASTEN REPEAT-FUNKTION
40 :
50 REM ANZAHL UND NAMEN DER HELP-SEITEN
60 N=3 :REM ANZAHL DER HELP-SEITEN
70 DN$(0)="" :DN$(N+1)=""
80 FOR I=1 TO N :DN$(I)="HELPSEITE"+STR$(I) :NEXT
90 :
100 REM HELP-SEITEN ANLEGEN UND SPEICHERN
110 FOR I=1 TO N
120 (null) 1,1,"GEBEN SIE DEN HELP-TEXT"
130 (null) 3,"FUER SEITE"+STR$(I)+" EIN !!"
140 (null) 5,"ENDE DER EINGABE MIT 'F3' !"
150 (null)1,10,10,24,39,1,0,DN$(I) :(null)1,(I+1)*2,128 :(null)1
160 PRINTCHR$(147)
170 (null)
180 (null) "@:"+DN$(I),DN$(I-1),DN$(I+1)
190 (null) :(null)1
200 NEXT
210 :
220 REM FERTIG, HELP AKTIVIEREN
230 (null) DN$(1)
240 (null) 10,1,"HELP-FUNKTION AKTIVIERT,"
260 (null) 12,1,"AUFRUF MIT 'F5' ODER 'HELP'-BEFEHL !"
270 END